home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / desaware / stgtools / reg_demo / findrslt.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-27  |  1.5 KB  |  45 lines
  1. VERSION 4.00
  2. Begin VB.Form FindResults 
  3.    Caption         =   "Results"
  4.    ClientHeight    =   1500
  5.    ClientLeft      =   1170
  6.    ClientTop       =   1590
  7.    ClientWidth     =   3570
  8.    ClipControls    =   0   'False
  9.    Height          =   1965
  10.    Left            =   1080
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1500
  13.    ScaleWidth      =   3570
  14.    Top             =   1215
  15.    Width           =   3750
  16.    Begin VB.ListBox ListResults 
  17.       BackColor       =   &H00C0C0C0&
  18.       Height          =   1200
  19.       Left            =   240
  20.       TabIndex        =   0
  21.       Top             =   120
  22.       Width           =   3135
  23.    End
  24. Attribute VB_Name = "FindResults"
  25. Attribute VB_Creatable = False
  26. Attribute VB_Exposed = False
  27. Option Explicit
  28. ' Set the size of the listbox to almost fill the
  29. ' form.
  30. Private Sub Form_Load()
  31.     listresults.Move FindResults.ScaleLeft + 60, FindResults.ScaleTop + 60
  32.     listresults.Width = FindResults.ScaleWidth - 60
  33.     listresults.Height = FindResults.ScaleHeight - 60
  34.     'FindResults.Height = listresults.Height
  35. End Sub
  36. ' Keep the size of the listbox the same as the
  37. ' form, as the user might adjust the form to see
  38. ' more keys at a time.
  39. Private Sub Form_Resize()
  40.     listresults.Move FindResults.ScaleLeft + 60, FindResults.ScaleTop + 60
  41.     listresults.Width = FindResults.ScaleWidth - 60
  42.     listresults.Height = FindResults.ScaleHeight - 60
  43.     'FindResults.Height = listresults.Height
  44. End Sub
  45.